%Plots the price impact coefficient (alphas) by day
function fig_isoquants(alphaGrid, CCBEuro,meanAlpha,maxAlpha,minCIP,meanCIP,optfig)

if optfig.plotfig == 1
    
    [fontname,dimension,lw,folder,color,style,marker,markersize,fontsize_tit,fontsize_ax,fontsize_lab,fontsize_leg] = fn_optfig(optfig);
    
    f0 = figure('Units','inches','Position',dimension);
     
    plot(alphaGrid,CCBEuro(:,1)*10000,'Color',color{1},'LineStyle',style{1},'LineWidth',lw); hold on;
    plot(alphaGrid,CCBEuro(:,2)*10000,'Color',color{3},'LineStyle',style{2},'LineWidth',lw); hold on;
    plot(alphaGrid,CCBEuro(:,3)*10000,'Color',color{4},'LineStyle',style{3},'LineWidth',lw); hold on;
    plot(round(meanAlpha,2),meanCIP*10000,'r*'); hold on;
    plot(round(maxAlpha,2),minCIP*10000,'r*'); hold on;
 
    title('EUR/USD Welfare Isoquants', 'interpreter','latex','FontSize',fontsize_tit,'FontName',fontname)
    xlabel('Coefficient $\alpha$ (ticks)','interpreter','latex','FontSize',fontsize_ax,'FontName',fontname)
    ylabel('Cross Currency Basis (basis points)','interpreter','latex','FontSize',fontsize_ax,'FontName',fontname)
    grid; axis tight; box off;
    xlim([0 0.4])
    ylim([-0.06 0]*10000)
    legendCell = {'$100M', '$1B', '$10B'};
    legend(legendCell,'interpreter','latex','FontSize',fontsize_leg,'FontName',fontname,'Location','best')
    legend boxoff
end

name = '07_Isoquants';
print(f0,'-depsc','-painters','-noui','-r600',[folder,name,'.eps'])

end